home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 52
/
Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso
/
Aminet
/
misc
/
emu
/
Apex-src.lha
/
WRITE.XPL
< prev
next >
Wrap
Text File
|
2001-09-30
|
384b
|
14 lines
\WRITE.XPL APR-21-88
code INTIN= 10, TEXT= 12, HEXIN= 26, WRITE= 30;
int UNIT, BLOCK, BUFFER, SIZE;
begin
TEXT(0, "UNIT? "); UNIT:= INTIN(0);
TEXT(0, "BLOCK? "); BLOCK:= INTIN(0);
TEXT(0, "BUFFER? $"); BUFFER:= HEXIN(0);
TEXT(0, "SIZE (BLOCKS)? "); SIZE:= INTIN(0);
WRITE(UNIT, BLOCK, BUFFER, SIZE);
end;
T(0, "BUFFER? $"); BUFFER:= HEXIN(0);
TEXT(0, "SIZE (BLOCKS